library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_18.2.R")

diagnosis_18.2 <- 
  declaration_18.2 |> 
  redesign(N = seq(100, 1100, by = 200),
           r_sq = seq(0.0, 0.8, by = 0.2)) |> 
  diagnose_designs(sims = sims, bootstrap_sims = bootstrap_sims) 

write_rds(diagnosis_18.2, file = "diagnosis_objects/diagnosis_18.2.rds")

